home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ctoolwrk.lbr / FRITE.C < prev    next >
Text File  |  1985-09-27  |  896b  |  34 lines
  1. /*                   frite.c                           */
  2. /*  an improvement on readin1.c  to read info into a file    */
  3.  
  4. #include a:printf.c
  5.  
  6. char x;
  7. char t;
  8.  
  9. main()
  10.  
  11. {
  12.  
  13. fopen("file","u");
  14.  
  15.    {
  16.     while((x = getchar())  !=  '\21') /* until control-Q */
  17.           
  18.           putc(x,1);
  19.      }
  20.  
  21.                 fclose(1);
  22.  
  23.                                   {
  24.                                   fopen("nother","w")
  25.                                        
  26.                                         t="this file is nother";
  27.                                             {
  28.                                             fprintf(1,t);
  29.                                             {
  30.                                                  fclose(1);
  31.                                     }
  32.  
  33.  
  34. }